(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     58383,       1717]
NotebookOptionsPosition[     55640,       1621]
NotebookOutlinePosition[     56044,       1638]
CellTagsIndexPosition[     56001,       1635]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"$Path", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"$Path", ",", "\"\<E:\\\\HOME\\\\anton\\\\roundabout\>\""}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[{
 RowBox[{"<<", "\"\<ACPackages`\>\""}], "\n", 
 RowBox[{"<<", "\"\<ErrorBarPlots`\>\""}]}], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetWorkDir", "[", "]"}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetWorkDir", "[", "\"\</2006.07.20/Re=10\>\"", "]"}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell["\:0414\:043e\:0431\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:0437\
\:0430\:043f\:0438\:0441\:0435\:0439", "Section"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dvx", "=", 
   RowBox[{"dvy", "=", 
    RowBox[{"dvz", "=", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dEx", "=", 
   RowBox[{"dEy", "=", 
    RowBox[{"dEz", "=", "0"}]}]}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Forming", " ", "table", " ", "of", " ", 
    RowBox[{"results", ":", " ", 
     RowBox[{"list", " ", "of", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"date", 
         RowBox[{"(", 
          RowBox[{"year", ",", "month", ",", "day"}], ")"}]}], ",", 
        RowBox[{"mesh", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Nx", "=", "Nz"}], ",", "Ny"}], ")"}]}], ",", "Re", ",", 
        RowBox[{"r", "/", "R"}], ",", "lfi", ",", 
        RowBox[{"F", 
         RowBox[{"(", "r", ")"}]}], ",", "Coriolis", ",", "mvx", ",", 
        "\[Delta]mvx", ",", "mvy", ",", "\[Delta]mvy", ",", "mvz", ",", 
        "\[Delta]mvz", ",", "Evx", ",", "\[Delta]Evx", ",", "Evy", ",", 
        "\[Delta]Evy", ",", "Evz", ",", "\[Delta]Evz", ",", "m\[Phi]", ",", 
        "\[Delta]m\[Phi]", ",", "comment"}], "}"}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"indepkol", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"depkol", "=", "14"}], ";"}]}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "dvx", ",", "dvy", ",", "dvz", ",", "dEx", ",", "dEy", ",", "dEz"}], 
    "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", 
     RowBox[{"1", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}], ",", 
     RowBox[{"1", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]]}], ",", 
     RowBox[{"1", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}], ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.392213330932*^9, 3.392213332615*^9}, {3.392213406269*^9,
    3.3922134071400003`*^9}, {3.3922134702679996`*^9, 
   3.3922134720439997`*^9}, {3.392213570354*^9, 3.392213576026*^9}, {
   3.3922139975030003`*^9, 3.392214000291*^9}, {3.3922140744890003`*^9, 
   3.392214075987*^9}, 3.3922146708380003`*^9, 3.3922147871400003`*^9, {
   3.392214860953*^9, 3.392214862561*^9}, {3.392215098034*^9, 
   3.392215100656*^9}, {3.392215320115*^9, 3.3922153220699997`*^9}, 
   3.3922154398129997`*^9, {3.3922255303640003`*^9, 3.392225532422*^9}, 
   3.3922257169300003`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"putlist", "=", 
  RowBox[{
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2007", ",", "07", ",", "01"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"128", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "0.15", ",", "1.", ",", "1", ",", "0", ",", "mvx", ",", "dvx",
        ",", "mvy", ",", "dvy", ",", "mvz", ",", "dvz", ",", "Evx", ",", 
       "dEx", ",", "Evy", ",", "dEy", ",", "Evz", ",", "dEz", ",", 
       RowBox[{"Max", "[", 
        RowBox[{"Abs", "[", "\[Psi]", "]"}], "]"}], ",", 
       RowBox[{"Max", "[", 
        RowBox[{"Abs", "[", 
         RowBox[{"\[Psi]2", "-", "\[Psi]1"}], "]"}], "]"}], ",", 
       "\"\<ErrScale 1e-4\>\""}], "}"}]}], "]"}], "/.", 
   RowBox[{"b_", "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"CForm", "[", "b", "]"}], "/;", 
     RowBox[{"NumericQ", "[", "b", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.3922065420559998`*^9, 3.39220655923*^9}, {
  3.3922141155030003`*^9, 3.392214140863*^9}, {3.3922145762860003`*^9, 
  3.3922145763789997`*^9}, {3.3922146124820004`*^9, 3.392214612866*^9}, {
  3.392225468336*^9, 3.392225472242*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox["2007",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[2007],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["7",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[7],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["1",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[1],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["128",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[128],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["5",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[5],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["1",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[1],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.15",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.15],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["1.",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[1.],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["1",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[1],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0020742",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.0020742],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.00001",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 100000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.99834",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.99834],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0001",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 10000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0010407",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.0010407],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"1.", "e"}], "-", "6"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 1000000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"7.5319175371468165", "e"}], "-", "6"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[7.5319175371468165`*^-6],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"1.", "e"}], "-", "9"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 1000000000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["3.298639963719722",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[3.298639963719722],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.00002",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 50000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"2.508353627463404", "e"}], "-", "6"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[2.508353627463404*^-6],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"2.", "e"}], "-", "9"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 500000000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0005524791430816648",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.0005524791430816648],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.00005358199328613284",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.00005358199328613284],
    AutoDelete->True,
    Editable->True], ",", "\<\"ErrScale 1e-4\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.3922076134849997`*^9, 3.392212172902*^9, 3.3922131797390003`*^9, {
   3.392214078321*^9, 3.392214149035*^9}, 3.392214619559*^9, 
   3.392215441361*^9, 3.3922254745810003`*^9, 3.392225857709*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"putlist", ">>>", "result.dat"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "mvx", ",", "dvx", ",", "mvy", ",", "dvy", ",", "mvz", ",", "dvz", ",", 
    "Evx", ",", "dEx", ",", "Evy", ",", "dEy", ",", "Evz", ",", "dEz", ",", 
    "\[Psi]", ",", "\[Psi]2", ",", "\[Psi]1"}], "}"}], "=", "."}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null", 
   ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", 
   "Null", ",", "Null", ",", "Null", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.3922131867939997`*^9, 3.392214152152*^9, 
  3.392215446424*^9, 3.3922258615550003`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0410\:043d\:0430\:043b\:0438\:0437 \:0437\:0430\:043f\:0438\:0441\
\:0435\:0439", "Section"],

Cell[CellGroupData[{

Cell["\:0424\:0443\:043d\:043a\:0446\:0438\:0438", "Subsection"],

Cell[BoxData[
 RowBox[{"UpdateData", ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"fields", "=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"res", ",", "stm"}], "}"}], ",", 
         RowBox[{
          RowBox[{"res", "=", 
           RowBox[{"ReadList", "[", 
            RowBox[{
             RowBox[{"stm", "=", 
              RowBox[{"StringToStream", "[", 
               RowBox[{"First", "[", 
                RowBox[{"ReadList", "[", "\"\<result.dat\>\"", "]"}], "]"}], 
               "]"}]}], ",", "Word", ",", 
             RowBox[{"WordSeparators", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\< \>\"", ",", "\"\<,\>\"", ",", "\"\<{\>\"", ",", 
                "\"\<}\>\""}], "}"}]}]}], "]"}]}], ";", 
          RowBox[{"Close", "[", "stm", "]"}], ";", "res"}]}], "]"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"all", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Rest", "[", 
         RowBox[{"ReadList", "[", "\"\<result.dat\>\"", "]"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a_", "+", 
           RowBox[{"b_", " ", "E"}]}], "\[Rule]", 
          RowBox[{"b", "*", 
           SuperscriptBox["10", "a"]}]}], "}"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a_", "+", 
          RowBox[{"b_", " ", "e"}]}], "\[Rule]", 
         RowBox[{"b", "*", 
          SuperscriptBox["10", "a"]}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Total:\>\"", ",", 
       RowBox[{"Length", "[", "all", "]"}], ",", "\"\< records\>\""}], "]"}], 
     ";"}]}], "]"}]}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MakeRule", "[", "el_", "]"}], ":=", 
   RowBox[{"MapThread", "[", 
    RowBox[{"Rule", ",", 
     RowBox[{"{", 
      RowBox[{"fields", ",", "el"}], "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ShowDependace", "[", 
    RowBox[{"param_", ",", "funcs_", ",", 
     RowBox[{"conditions_", ":", 
      RowBox[{"{", "}"}]}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"allbut", "=", 
        RowBox[{"GetResults", "[", "conditions", "]"}]}], ",", "dep", ",", 
       "deplist", ",", "numpar", ",", "othern", ",", "otherv"}], "}"}], ",", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{
          RowBox[{"Drop", "[", 
           RowBox[{"fields", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"indepkol", "+", "1"}], ",", 
              RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", "param"}], "]"}], 
        ",", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<Wrong parameter\>\"", "]"}], ";", 
         RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", 
      RowBox[{"numpar", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"fields", ",", "param"}], "]"}], "]"}], "]"}]}], ";", 
      RowBox[{"othern", "=", 
       RowBox[{"Complement", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"4", ",", 
             RowBox[{
              RowBox[{"Length", "[", "fields", "]"}], "-", "depkol", "-", 
              "1"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"Length", "[", "fields", "]"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", "numpar", "}"}]}], "]"}]}], ";", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<All such parameters=\>\"", ",", 
        RowBox[{"Union", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
            "#1", "\[LeftDoubleBracket]", "numpar", "\[RightDoubleBracket]"}],
             "&"}], ")"}], "/@", "allbut"}], "]"}]}], "]"}], ";", 
      RowBox[{"dep", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Rest", "[", 
         RowBox[{"Reap", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Sow", "[", 
               RowBox[{"#1", ",", 
                RowBox[{"NotList", "@@", 
                 RowBox[{
                 "#1", "\[LeftDoubleBracket]", "othern", 
                  "\[RightDoubleBracket]"}]}]}], "]"}], "&"}], ")"}], "/@", 
            RowBox[{"Sort", "[", 
             RowBox[{"allbut", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{
                 "#1", "\[LeftDoubleBracket]", "numpar", 
                  "\[RightDoubleBracket]"}], "]"}], "<", 
                RowBox[{"N", "[", 
                 RowBox[{
                 "#2", "\[LeftDoubleBracket]", "numpar", 
                  "\[RightDoubleBracket]"}], "]"}]}], "&"}]}], "]"}]}], ",", 
           "_", ",", "f"}], "]"}], "]"}], "]"}]}], ";", 
      RowBox[{"dep", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"dep", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Last", "[", "#1", "]"}], "]"}], ">", "1"}], "&"}]}], 
        "]"}]}], ";", 
      RowBox[{"otherv", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"Drop", "[", 
          RowBox[{
           RowBox[{"Drop", "[", 
            RowBox[{"fields", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"indepkol", "+", "1"}], ",", 
               RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", "numpar", "}"}]}], "]"}], ",", "3"}], "]"}]}], ";", 
      RowBox[{"Print", "[", "otherv", "]"}], ";", 
      RowBox[{"nom", "=", "0"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "dep", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<Data was not found\>\"", "]"}], ";", 
         RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", 
      RowBox[{
      "Print", "[", "\"\<Plots can be shown for parameters:\>\"", "]"}], ";", 
      
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<\:2116\>\"", ",", 
           RowBox[{"++", "nom"}], ",", "\"\<:\>\"", ",", 
           RowBox[{"MapThread", "[", 
            RowBox[{"Rule", ",", 
             RowBox[{"{", 
              RowBox[{"otherv", ",", 
               RowBox[{"List", "@@", 
                RowBox[{"First", "[", "#1", "]"}]}]}], "}"}]}], "]"}], ",", 
           "\"\<, number of points=\>\"", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"Last", "[", "#1", "]"}], "]"}]}], "]"}], "&"}], ")"}], "/@",
        "dep"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "dep", "]"}], ">", "1"}], ",", 
        RowBox[{"nom", "=", 
         RowBox[{
         "Input", "[", 
          "\"\<\:0412\:0432\:0435\:0434\:0438\:0442\:0435 \:043d\:043e\:043c\
\:0435\:0440 \:0436\:0435\:043b\:0430\:0435\:043c\:043e\:0439 \:0437\:0430\
\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438\>\"", "]"}]}], ",", 
        RowBox[{"nom", "=", "1"}]}], "]"}], ";", 
      RowBox[{"Print", "[", "\"\<So constant parameters are:\>\"", "]"}], ";",
       
      RowBox[{"Print", "[", 
       RowBox[{"\"\<\\t\>\"", ",", 
        RowBox[{"Thread", "[", 
         RowBox[{"otherv", "\[Rule]", 
          RowBox[{"List", "@@", 
           RowBox[{"First", "[", 
            RowBox[{
            "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
            "]"}]}]}], "]"}]}], "]"}], ";", 
      RowBox[{"deplist", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"#1", ",", 
            RowBox[{"\"\<\[Delta]\>\"", "<>", "#1"}], ",", 
            RowBox[{
            "#1", "<>", "\"\<(\>\"", "<>", "param", "<>", "\"\<)\>\""}]}], 
           "}"}], "&"}], ")"}], "/@", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", "funcs", "}"}], "]"}]}]}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "param", "}"}], ",", 
          RowBox[{"RotateRight", "/@", "deplist"}], ",", 
          RowBox[{"{", "\"\<comment\>\"", "}"}]}], "]"}], "/.", 
        "\[InvisibleSpace]", 
        RowBox[{"MakeRule", "/@", 
         RowBox[{"Last", "[", 
          RowBox[{
          "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
          "]"}]}]}]}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"l", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                   "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", 
                   RowBox[{
                   "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "}"}], ",", 
                 RowBox[{"ErrorBar", "[", 
                  RowBox[{
                  "#1", "\[LeftDoubleBracket]", "3", 
                   "\[RightDoubleBracket]"}], "]"}]}], "}"}], "&"}], ")"}], "/@",
              
             RowBox[{"Flatten", "/@", 
              RowBox[{"Transpose", "[", 
               RowBox[{"Join", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"First", "/@", "pts"}], "}"}], ",", 
                 RowBox[{"{", "l", "}"}]}], "]"}], "]"}]}]}], ",", 
            RowBox[{"l", "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", 
              RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}], 
         "]"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"deplist", "/.", "\[InvisibleSpace]", 
          RowBox[{"MakeRule", "/@", 
           RowBox[{"Last", "[", 
            RowBox[{
            "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
            "]"}]}]}], "]"}]}]}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"param", "\[NotEqual]", 
         RowBox[{"Last", "[", "fields", "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ListPlot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"First", "[", "#1", "]"}], "}"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"param", ",", 
                 RowBox[{"Last", "[", "#1", "]"}]}], "}"}]}], ",", 
              RowBox[{"Axes", "\[Rule]", "True"}], ",", 
              RowBox[{"Frame", "\[Rule]", "False"}], ",", 
              RowBox[{"PlotLabel", "\[Rule]", 
               RowBox[{"Last", "[", "#1", "]"}]}], ",", 
              RowBox[{"SymbolShape", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"PlotSymbol", "[", "Box", "]"}], "}"}]}]}], "]"}], 
            "&"}], ")"}], "/@", "pts"}], ";"}]}], "]"}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "param", "}"}], ",", "deplist", ",", 
          RowBox[{"{", "\"\<comment\>\"", "}"}]}], "]"}], "/.", 
        "\[InvisibleSpace]", 
        RowBox[{"MakeRule", "/@", 
         RowBox[{"Last", "[", 
          RowBox[{
          "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
          "]"}]}]}]}], ";"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetResults", "[", 
    RowBox[{"conditions_:", 
     RowBox[{"{", "}"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pattern", ",", 
       RowBox[{"rules", "=", 
        RowBox[{"Union", "[", 
         RowBox[{"Select", "[", 
          RowBox[{"conditions", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Head", "[", "#", "]"}], "\[Equal]", "Rule"}], "&"}]}], 
          "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Unequal", " ", 
         RowBox[{"doesn", "'"}], "t", " ", "work", " ", "always"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"ineqs", "=", 
        RowBox[{"And", "@@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Select", "[", 
           RowBox[{"conditions", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"MemberQ", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                 "Less", ",", "LessEqual", ",", "Greater", ",", 
                  "GreaterEqual", ",", "Unequal"}], "}"}], ",", 
                RowBox[{"Head", "[", "#", "]"}]}], "]"}], "\[Or]", 
              RowBox[{"#", "\[Equal]", "False"}]}], "&"}]}], "]"}], 
          "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MatchesQ", "[", "el_", "]"}], ":=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"mr", "=", 
           RowBox[{"MakeRule", "[", "el", "]"}]}], "}"}], ",", 
         RowBox[{
          RowBox[{"Simplify", "[", 
           RowBox[{"ineqs", "/.", "mr"}], "]"}], "\[And]", 
          RowBox[{
           RowBox[{"Complement", "[", 
            RowBox[{"rules", ",", "mr"}], "]"}], "\[Equal]", 
           RowBox[{"{", "}"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<All data matches (\>\"", ",", 
        RowBox[{"Simplify", "[", "ineqs", "]"}], ",", "\"\<)\>\"", ",", 
        RowBox[{"Sequence", "@@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\"\<&&(\>\"", "<>", 
             RowBox[{"First", "[", "#", "]"}], "<>", "\"\<=\>\"", "<>", 
             RowBox[{"ToString", "[", 
              RowBox[{"InputForm", "[", 
               RowBox[{"Last", "[", "#", "]"}], "]"}], "]"}], "<>", 
             "\"\<)\>\""}], "&"}], "/@", "rules"}], ")"}]}], ",", 
        "\"\<:\>\""}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"all", ",", "MatchesQ"}], "]"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dvx", "=", 
    RowBox[{"dvy", "=", 
     RowBox[{"dvz", "=", 
      RowBox[{"dEx", "=", 
       RowBox[{"dEy", "=", 
        RowBox[{"dEz", "=", "0"}]}]}]}]}]}], ";"}], "*)"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0414\:0435\:0439\:0441\:0442\:0432\:0438\:044f", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData["UpdateData"], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"year\"\>", ",", "\<\"month\"\>", ",", "\<\"day\"\>", 
   ",", "\<\"Nxz\"\>", ",", "\<\"Ny\"\>", ",", "\<\"Re\"\>", 
   ",", "\<\"r/R\"\>", ",", "\<\"lfi\"\>", ",", "\<\"F(r)\"\>", 
   ",", "\<\"Coriolis\"\>", ",", "\<\"mvx\"\>", ",", "\<\"\[Delta]mvx\"\>", 
   ",", "\<\"mvy\"\>", ",", "\<\"\[Delta]mvy\"\>", ",", "\<\"mvz\"\>", 
   ",", "\<\"\[Delta]mvz\"\>", ",", "\<\"Evx\"\>", ",", "\<\"\[Delta]Evx\"\>",
    ",", "\<\"Evy\"\>", ",", "\<\"\[Delta]Evy\"\>", ",", "\<\"Evz\"\>", 
   ",", "\<\"\[Delta]Evz\"\>", ",", "\<\"m\[Phi]\"\>", 
   ",", "\<\"\[Delta]m\[Phi]\"\>", ",", "\<\"comment\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.392212323524*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total:\"\>", "\[InvisibleSpace]", "27", 
   "\[InvisibleSpace]", "\<\" records\"\>"}],
  SequenceForm["Total:", 27, " records"],
  Editable->False]], "Print",
 CellChangeTimes->{3.3922123236689997`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetResults", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\"\<Nxz\>\"", "\[Rule]", "128"}], ",", 
    RowBox[{"\"\<Ny\>\"", "\[Rule]", "5"}], ",", 
    RowBox[{"\"\<r/R\>\"", "\[Rule]", 
     RowBox[{"1", "/", "4"}]}], ",", 
    RowBox[{"\"\<lfi\>\"", "\[Rule]", "1."}], ",", 
    RowBox[{"\"\<F(r)\>\"", "\[Rule]", "1"}], ",", 
    RowBox[{"\"\<Coriolis\>\"", "\[Rule]", "0"}], ",", 
    RowBox[{"\"\<comment\>\"", "->", "\"\<ErrScale 1e-4\>\""}]}], "}"}], 
  "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All data matches (\"\>", "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\")\"\>", 
   "\[InvisibleSpace]", "\<\"&&(comment=\\\"ErrScale 1e-4\\\")\"\>", 
   "\[InvisibleSpace]", "\<\"&&(Coriolis=0)\"\>", 
   "\[InvisibleSpace]", "\<\"&&(F(r)=1)\"\>", 
   "\[InvisibleSpace]", "\<\"&&(lfi=1.)\"\>", 
   "\[InvisibleSpace]", "\<\"&&(Nxz=128)\"\>", 
   "\[InvisibleSpace]", "\<\"&&(Ny=5)\"\>", 
   "\[InvisibleSpace]", "\<\"&&(r/R=1/4)\"\>", 
   "\[InvisibleSpace]", "\<\":\"\>"}],
  SequenceForm[
  "All data matches (", True, ")", "&&(comment=\"ErrScale 1e-4\")", 
   "&&(Coriolis=0)", "&&(F(r)=1)", "&&(lfi=1.)", "&&(Nxz=128)", "&&(Ny=5)", 
   "&&(r/R=1/4)", ":"],
  Editable->False]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"allfuncs", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{"fields", ",", 
      RowBox[{"{", 
       RowBox[{"11", ",", 
        RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"StringPosition", "[", 
        RowBox[{"#", ",", "\"\<\[Delta]\>\""}], "]"}], "]"}], "\[Equal]", 
      "0"}], "&"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"mvx\"\>", ",", "\<\"mvy\"\>", ",", "\<\"mvz\"\>", 
   ",", "\<\"Evx\"\>", ",", "\<\"Evy\"\>", ",", "\<\"Evz\"\>", 
   ",", "\<\"m\[Phi]\"\>"}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ShowDependace", "[", 
  RowBox[{"\"\<Re\>\"", ",", "allfuncs"}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All data matches (\"\>", "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\")\"\>", "\[InvisibleSpace]", "\<\":\"\>"}],
  SequenceForm["All data matches (", True, ")", ":"],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All such parameters=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50"}], 
    "}"}]}],
  SequenceForm["All such parameters=", {1, 2, 10, 20, 30, 40, 50}],
  Editable->False]], "Print"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Nxz\"\>", ",", "\<\"Ny\"\>", ",", "\<\"r/R\"\>", 
   ",", "\<\"lfi\"\>", ",", "\<\"F(r)\"\>", ",", "\<\"Coriolis\"\>", 
   ",", "\<\"comment\"\>"}], "}"}]], "Print"],

Cell[BoxData["\<\"Plots can be shown for parameters:\"\>"], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Nxz\"\>", "\[Rule]", "10"}], ",", 
     RowBox[{"\<\"Ny\"\>", "\[Rule]", "4"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.01`"}], ",", 
     RowBox[{"\<\"lfi\"\>", "\[Rule]", "1.`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 1, ":", {
   "Nxz" -> 10, "Ny" -> 4, "r/R" -> 0.01, "lfi" -> 1., "F(r)" -> 1, 
    "Coriolis" -> 0, "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Nxz\"\>", "\[Rule]", "128"}], ",", 
     RowBox[{"\<\"Ny\"\>", "\[Rule]", "5"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", 
      FractionBox["1", "4"]}], ",", 
     RowBox[{"\<\"lfi\"\>", "\[Rule]", "1.`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "5"}],
  SequenceForm[
  "\:2116", 2, ":", {
   "Nxz" -> 128, "Ny" -> 5, "r/R" -> Rational[1, 4], "lfi" -> 1., "F(r)" -> 1,
     "Coriolis" -> 0, "comment" -> "ErrScale 1e-4"}, ", number of points=", 
   5],
  Editable->False]], "Print"],

Cell[BoxData["\<\"So constant parameters are:\"\>"], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\t\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Nxz\"\>", "\[Rule]", "128"}], ",", 
     RowBox[{"\<\"Ny\"\>", "\[Rule]", "5"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", 
      FractionBox["1", "4"]}], ",", 
     RowBox[{"\<\"lfi\"\>", "\[Rule]", "1.`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], 
    "}"}]}],
  SequenceForm[
  "\t", {"Nxz" -> 128, "Ny" -> 5, "r/R" -> Rational[1, 4], "lfi" -> 1., 
    "F(r)" -> 1, "Coriolis" -> 0, "comment" -> "ErrScale 1e-4"}],
  Editable->False]], "Print"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pts", "//", "TableForm"}]], "Input"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"10", GridBox[{
       {"0.033623`"},
       {"0.00001`"},
       {"\<\"mvx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.98349`"},
       {"0.00005`"},
       {"\<\"mvy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.017852`"},
       {"0.00001`"},
       {"\<\"mvz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.0019745228271164086`"},
       {"1.`*^-7"},
       {"\<\"Evx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"3.210795401939845`"},
       {"0.0001`"},
       {"\<\"Evy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.0006650855719434291`"},
       {"1.`*^-7"},
       {"\<\"Evz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.009146077087554931`"},
       {"0.00027652942395324455`"},
       {"\<\"m\[Phi](Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\<\"ErrScale 1e-4\"\>"},
    {"20", GridBox[{
       {"0.063215`"},
       {"0.0005`"},
       {"\<\"mvx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.9606`"},
       {"0.005`"},
       {"\<\"mvy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.033056`"},
       {"0.0005`"},
       {"\<\"mvz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.007079292944340656`"},
       {"0.00001`"},
       {"\<\"Evx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"3.116864005743144`"},
       {"0.005`"},
       {"\<\"Evy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.002386585337316463`"},
       {"4.9999999999999996`*^-6"},
       {"\<\"Evz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.01735214834197998`"},
       {"0.0005231962453308063`"},
       {"\<\"m\[Phi](Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\<\"ErrScale 1e-4\"\>"},
    {"30", GridBox[{
       {"0.085072`"},
       {"0.001`"},
       {"\<\"mvx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.92543`"},
       {"0.005`"},
       {"\<\"mvy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.04383`"},
       {"0.0005`"},
       {"\<\"mvz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.013154786610839417`"},
       {"0.00005`"},
       {"\<\"Evx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"2.96306264310295`"},
       {"0.005`"},
       {"\<\"Evy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.004446244734581447`"},
       {"0.00002`"},
       {"\<\"Evz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.02371212151992797`"},
       {"0.0007095348233032272`"},
       {"\<\"m\[Phi](Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\<\"ErrScale 1e-4\"\>"},
    {"40", GridBox[{
       {"0.098511`"},
       {"0.001`"},
       {"\<\"mvx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.88506`"},
       {"0.002`"},
       {"\<\"mvy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.05041`"},
       {"0.0005`"},
       {"\<\"mvz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.018277598404918244`"},
       {"0.00005`"},
       {"\<\"Evx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"2.782002862919679`"},
       {"0.002`"},
       {"\<\"Evy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.006205006105366505`"},
       {"0.00001`"},
       {"\<\"Evz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.02799484785293579`"},
       {"0.000827182613067634`"},
       {"\<\"m\[Phi](Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\<\"ErrScale 1e-4\"\>"},
    {"50", GridBox[{
       {"0.10545`"},
       {"0.0002`"},
       {"\<\"mvx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.84529`"},
       {"0.001`"},
       {"\<\"mvy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.054209`"},
       {"0.0001`"},
       {"\<\"mvz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.021842973169567268`"},
       {"0.00003`"},
       {"\<\"Evx(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"2.6040378170189338`"},
       {"0.0015`"},
       {"\<\"Evy(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.007457158087617223`"},
       {"0.000015`"},
       {"\<\"Evz(Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], GridBox[{
       {"0.030627227406311037`"},
       {"0.0008960339240112387`"},
       {"\<\"m\[Phi](Re)\"\>"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\<\"ErrScale 1e-4\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  TableForm[{{
    10, {0.033623, 0.00001, "mvx(Re)"}, {0.98349, 0.00005, "mvy(Re)"}, {
     0.017852, 0.00001, "mvz(Re)"}, {
     0.0019745228271164086`, 1.*^-7, "Evx(Re)"}, {
     3.210795401939845, 0.0001, "Evy(Re)"}, {
     0.0006650855719434291, 1.*^-7, "Evz(Re)"}, {
     0.009146077087554931, 0.00027652942395324455`, "m\[Phi](Re)"}, 
     "ErrScale 1e-4"}, {
    20, {0.063215, 0.0005, "mvx(Re)"}, {0.9606, 0.005, "mvy(Re)"}, {
     0.033056, 0.0005, "mvz(Re)"}, {
     0.007079292944340656, 0.00001, "Evx(Re)"}, {
     3.116864005743144, 0.005, "Evy(Re)"}, {
     0.002386585337316463, 4.9999999999999996`*^-6, "Evz(Re)"}, {
     0.01735214834197998, 0.0005231962453308063, "m\[Phi](Re)"}, 
     "ErrScale 1e-4"}, {
    30, {0.085072, 0.001, "mvx(Re)"}, {0.92543, 0.005, "mvy(Re)"}, {
     0.04383, 0.0005, "mvz(Re)"}, {
     0.013154786610839417`, 0.00005, "Evx(Re)"}, {
     2.96306264310295, 0.005, "Evy(Re)"}, {
     0.004446244734581447, 0.00002, "Evz(Re)"}, {
     0.02371212151992797, 0.0007095348233032272, "m\[Phi](Re)"}, 
     "ErrScale 1e-4"}, {
    40, {0.098511, 0.001, "mvx(Re)"}, {0.88506, 0.002, "mvy(Re)"}, {
     0.05041, 0.0005, "mvz(Re)"}, {
     0.018277598404918244`, 0.00005, "Evx(Re)"}, {
     2.782002862919679, 0.002, "Evy(Re)"}, {
     0.006205006105366505, 0.00001, "Evz(Re)"}, {
     0.02799484785293579, 0.000827182613067634, "m\[Phi](Re)"}, 
     "ErrScale 1e-4"}, {
    50, {0.10545, 0.0002, "mvx(Re)"}, {0.84529, 0.001, "mvy(Re)"}, {
     0.054209, 0.0001, "mvz(Re)"}, {
     0.021842973169567268`, 0.00003, "Evx(Re)"}, {
     2.6040378170189338`, 0.0015, "Evy(Re)"}, {
     0.007457158087617223, 0.000015, "Evz(Re)"}, {
     0.030627227406311037`, 0.0008960339240112387, "m\[Phi](Re)"}, 
     "ErrScale 1e-4"}}]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041e\:0442\:0434\:0435\:043b\:044c\:043d\:043e\:0435 \:0440\:0438\
\:0441\:043e\:0432\:0430\:043d\:0438\:0435", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"numfunc", "=", "2"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"First", "/@", "pts"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
            
            RowBox[{
            "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
           "}"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "numfunc", "]"}], "]"}], "&"}], "/@", "pts"}], 
          ")"}]}]}], "}"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["1", 
             RowBox[{"First", "[", "#", "]"}]], ")"}], "2"], "&"}], "/@", 
         "pts"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"First", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "numfunc", "]"}], "]"}], "&"}], "/@", "pts"}], 
          ")"}]}]}], "}"}], "]"}]}], ")"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Drop", "[", 
    RowBox[{"list", ",", "2"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Last", "[", 
     RowBox[{"Last", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
         "#1", "\[LeftDoubleBracket]", "numfunc", "\[RightDoubleBracket]"}], 
         "&"}], ")"}], "/@", "pts"}], "]"}], "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.03`", "]"}]}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{"Drop", "[", 
    RowBox[{"list", ",", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.9908116181000218`", "\[InvisibleSpace]"}], "+", 
  RowBox[{"2.4908947743015486`", " ", "x"}]}]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{739, 520},
WindowMargins->{{0, Automatic}, {0, Automatic}},
TaggingRules:>{"Salvaged" -> True},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 207, 6, 31, "Input",
 InitializationCell->True],
Cell[778, 29, 142, 3, 52, "Input",
 InitializationCell->True],
Cell[923, 34, 103, 3, 31, "Input",
 InitializationCell->True],
Cell[1029, 39, 108, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[1162, 46, 124, 1, 71, "Section"],
Cell[1289, 49, 247, 8, 52, "Input"],
Cell[1539, 59, 1108, 28, 112, "Input",
 InitializationCell->True],
Cell[2650, 89, 1318, 35, 33, "Input"],
Cell[CellGroupData[{
Cell[3993, 128, 1160, 27, 92, "Input"],
Cell[5156, 157, 4827, 190, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10020, 352, 350, 7, 52, "Input"],
Cell[10373, 361, 368, 7, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10790, 374, 100, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[10915, 379, 64, 0, 36, "Subsection"],
Cell[10982, 381, 1802, 50, 186, "Input",
 InitializationCell->True],
Cell[12787, 433, 257, 8, 45, "Input",
 InitializationCell->True],
Cell[13047, 443, 9704, 256, 606, "Input",
 InitializationCell->True],
Cell[22754, 701, 2751, 71, 326, "Input",
 InitializationCell->True],
Cell[25508, 774, 240, 8, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[25785, 787, 70, 0, 28, "Subsection"],
Cell[CellGroupData[{
Cell[25880, 791, 36, 0, 45, "Input"],
Cell[CellGroupData[{
Cell[25941, 795, 698, 11, 43, "Print"],
Cell[26642, 808, 251, 6, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26942, 820, 503, 12, 52, "Input"],
Cell[27448, 834, 752, 16, 43, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28237, 855, 444, 14, 31, "Input"],
Cell[28684, 871, 205, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28926, 880, 105, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[29056, 886, 260, 5, 23, "Print"],
Cell[29319, 893, 315, 8, 23, "Print"],
Cell[29637, 903, 209, 4, 23, "Print"],
Cell[29849, 909, 68, 0, 23, "Print"],
Cell[29920, 911, 887, 20, 43, "Print"],
Cell[30810, 933, 921, 21, 58, "Print"],
Cell[31734, 956, 61, 0, 23, "Print"],
Cell[31798, 958, 727, 17, 38, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32574, 981, 60, 1, 31, "Input"],
Cell[32637, 984, 20406, 543, 206, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53080, 1532, 136, 1, 28, "Subsubsection"],
Cell[53219, 1535, 73, 2, 31, "Input"],
Cell[53295, 1539, 1349, 43, 83, "Input"],
Cell[54647, 1584, 572, 16, 52, "Input"],
Cell[CellGroupData[{
Cell[55244, 1604, 198, 6, 31, "Input"],
Cell[55445, 1612, 143, 3, 30, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

